home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
ac174v13.zip
/
RSB3CHAT.MRG
< prev
next >
Wrap
Text File
|
1992-10-03
|
2KB
|
45 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
* RBBSSUB3.BAS: Date 6-20-1992 Size 129071 bytes
* ANSIChat (c) 1992 by Richie Molinelli
* ------------[ Created 10-01-1992 08:24:05 ]------------
* REPLACING old line(s) by new
30610 ZKeyPressed$ = ""
* ------[ first line different ]------
IF ZWasCM THEN _ ' CHAT174
IF (ZFunctionKey > 0 AND (ZFunctionKey =< 12)) OR _ ' CHAT174
(ZFunctionKey = 15) OR (ZFunctionKey > 17 AND (ZFunctionKey =< 22)) THEN _ ' CHAT174
EXIT SUB ' CHAT174
IF ZFunctionKey < 1 OR ZFunctionKey > 22 THEN _
GOTO 33970
IF ZFunctionKey < 10 AND (ZFunctionKey <> 8) THEN _
GOTO 30620
IF ZToggleOnly THEN _
ZSubParm = 1 : _
GOTO 33970
* REPLACING old line(s) by new
33160 CALL UpdtCalr ("Sysop began chat",1)
ZPageStatus$ = ""
* ------[ first line different ]------
IF ZANSITest = ZTrue OR ZWasGR > 1 THEN _ ' CHAT174
CALL SysOpChat (2) _ ' CHAT174
ELSE _ ' CHAT174
CALL SkipLine (1) : _ ' CHAT174
CALL QuickTPut1 ("Hi " + _
ZFirstName$ + _
", this is " + _
ZSysopFirstName$ + _
" " + _
ZSysopLastName$ + _
". Sorry to break in to CHAT but..") : _ ' CHAT174
CALL TimeBack (1) : _ ' CHAT174
CALL SysopChat (1) ' CHAT174
CALL TimeBack (2)
ZCommPortStack$ = CHR$(13)
GOTO 33155
'
'
' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
'
'